home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE23 / SURVIVE / dmData.pas < prev    next >
Pascal/Delphi Source File  |  1997-05-19  |  2KB  |  70 lines
  1. unit dmData;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   DB, DBTables;
  8.  
  9. type
  10.   TdmDataModule = class(TDataModule)
  11.     dbDemo: TDatabase;
  12.     qryCreditIssue: TQuery;
  13.     spCreditNew: TStoredProc;
  14.     qryCreditsOutByCustomer: TQuery;
  15.     qryPaymentMethodsGet: TQuery;
  16.     qryCreditsOutByCustomerAMOUNT: TFloatField;
  17.     qryCreditsOutByCustomerISSUEDATETIME: TDateTimeField;
  18.     qryCreditsOutByCustomerBALANCEDUE: TFloatField;
  19.     qryCreditsOutByCustomerCREDITNO: TIntegerField;
  20.     procedure dmDataModuleCreate(Sender: TObject);
  21.     procedure dmDataModuleDestroy(Sender: TObject);
  22.   private
  23.   public
  24.     PaymentMethodsList: TStringList;
  25.   end;
  26.  
  27. var
  28.   dmDataModule: TdmDataModule;
  29.  
  30. implementation
  31.  
  32. {$R *.DFM}
  33.  
  34. uses
  35.   uBase;
  36.  
  37. procedure TdmDataModule.dmDataModuleCreate(Sender: TObject);
  38. var
  39.   Code: PChar;
  40. begin
  41.   PaymentMethodsList := TStringList.Create;
  42.  
  43.   with qryPaymentMethodsGet do begin
  44.     Open;
  45.     try
  46.       while not Eof do begin
  47.         Code := StrAlloc(Length(FieldByName('PayMethodCode').AsString));
  48.         StrPCopy(Code, FieldByName('PayMethodCode').AsString);
  49.         PaymentMethodsList.AddObject(FieldByName('PayMethodName').AsString, TObject(Code));
  50.         Next;
  51.       end;
  52.     finally
  53.       Close;
  54.     end;
  55.   end;
  56. end;
  57.  
  58. procedure TdmDataModule.dmDataModuleDestroy(Sender: TObject);
  59. var
  60.   I: Integer;
  61. begin
  62.   with PaymentMethodsList do begin
  63.     for I := 0 to Count - 1 do
  64.       StrDispose(PChar(Objects[I]));
  65.     Free;
  66.   end;
  67. end;
  68.  
  69. end.
  70.